Adventures with Oslo: Tools & Gadgets/Adventures with Oslo - Tools and Gadgets.ISO/mac/Ad/Mod03/tnldoor/00011.ls

Text File | 1994-09-23 | 370 b | 17 lines

on check thisList
  set total to 0
  if getOne(thisList, "pick") <> 0 then
    set total to total + 1
  end if
  if getOne(thisList, "pointy shovel") <> 0 then
    set total to total + 1
  end if
  if getOne(thisList, "drill") <> 0 then
    set total to total + 1
  end if
  if getOne(thisList, "ladder") <> 0 then
    set total to total + 1
  end if
  return total
end